Закрыть окно         Список других документов ПЭВМ "Агат"

.пв
Приложение 1
.ов

.шп+8
                      ПЕРЕЧЕНЬ
          ИСПОЛЬЗУЕМЫХ УПРАВЛЯЮЩИХ КЛАВИШ
          ФУНКЦИОНАЛЬНОЙ ЗОНЫ КЛАВИАТУРЫ
.шп-8

 'F1'   - Переход к предыдущей странице записи;
 'F2'   - Переход к следующей странице записи;
 'F3'   - Нормальное завершение работы режима;
          Переход к следующей записи;
          в режиме "ПОИСК ЗАПИСЕЙ" - выдача найденных
          записей на экран;
          Трансляция программы - в режиме
          "Язык программирования" 
 '0'    - Переход к следующему полю страницы;
          Удаление страницы в режиме "СОЗДАНИЕ ФОРМЫ";
 '.'    - Переход к предыдущему полю страницы 
 '='    - Переход к предыдущей записи ; 
          Запуск программы на выполнение в режиме
          "Язык программирования";
 '7'    - Переход к предыдущему элементу списка перечней;
 '8'    - Переход к следующему элементу списка перечней;
 '9'    - Возврат из режимов в Меню;
'УПР-К' - Каталог;
'УПР-l' - Очистка поля от содержимого;
'УПР-х' - Очистка поля до знака "ввод";
'УПР-w' - Удаление записи;
'УПР-n' - Задание поиска перечня; 
'УПР-и' - Инструкция; 
 '4'    - Смена типа курсора;   
 '5'    - Удаление символа;
 '6'    - Получение знака операции "*";
 '1'    - Получение знака операции ".";
          смена цветного и черно-белого режима в режиме
          "СОЗДАНИЕ ФОРМЫ";
 '2'    - Получение знака операции ",";
 '3'    - Получение знака операции "&";
'РЕД'   - Выдача на бумагу страницы записи.
.сс
.пв
Приложение 2
.лв
.кс0

TEXT1:HOME:ON ENDFILE K1:

INPUT "ВВЕДИТЕ ДАТУ ".DD#:
M1: READ FILE: IF PA1 /="ЧЕМПИОНАТ СССР" THEN GOTO M1:\
IF PA4>DD# THEN GOTO M1:\I=0:
AX=99:AG=99:
N1:IF I=WK THEN GOTO N2:\ IF PA8=SK&(I) THEN AX=I:ELSE IF PA9=SK&(I) THEN AG=I:\\
IF AX=99 THEN I=I+1:GOTO N1:\
IF AG=99 THEN I=I+1:GOTO N1:\GOTO N3:
N2:IF AX =99 THEN SK&(I)=PA8:AX=I:I=I+1:\
IF AG=99 THEN SK&(I)=PA9:AG=I:I=I+1:\WK=I:
N3:KI(AG)=KI(AG)+1:KI(AX)=KI(AX)+1:
ZB(AX)=ZB(AX)+PA10:ZB(AG)=ZB(AG)+PA11:ZP(AX)=ZP(AX)+PA11:ZP(AG)=ZP(AG)+PA10:
IF PA10=PA11 THEN NG(AX)=NG(AX)+1:NG(AG)=NG(AG)+1:ELSE IF PA10>PA11 THEN WG(AX)=WG(AX)+1:WP(AG)=WP(AG)+1:ELSE WG(AG)=WG(AG)+1:WP(AX)=WP(AX)+1:\\
GOTO M1:
K1:FOR I=0 TO 12 :O(I)=(WG(I)*2)+NG(I):MS(I)=I:NEXT:

FOR I=0 TO 12 :R(I) =ZB(I):NEXT:GOSUB SR: FOR I=0 TO 12 :R(I)=ZB(I)-ZP(I):NEXT:GOSUB SR:FOR I=0 TO 12 :R(I)=WG(I):NEXT:GOSUB SR:FOR I=0 TO 12 : R(I)=O(I):NEXT: GOSUB SR:

HOME:VTAB 4:HTAB 12:?"ПОЛОЖЕНИЕ КОМАНД НА ".DD#:
VTAB6:HTAB6:?"КОМАНДА".:HTAB 20:?"И".:HTAB 24:?"В".:HTAB 28:?"Н".:HTAB 32 :?"П".:HTAB 36 :?"МЯЧИ".:HTAB 44:?"O":?" ":
FOR I=0 TO 12 :N=MS(I):
HTAB2:J=I+1:?J.:HTAB 6:?SK&(N).:HTAB 20:?KI(N).:HTAB 24:?WG(N).:HTAB 28:?NG(N).:HTAB 32:?WP(N).:HTAB 36:?ZB(N).:HTAB 40:?ZP(N).:HTAB 44:?O(N):NEXT:VTAB31: ?"для печати на принтере нажмите 'д'".: GETA¤:
IF A¤="D" OR A¤="д" THEN HTAB 0:?"                                   ".: ?SCR:\END:

SR: FOR I=0 TO 11 : N=I+1:FOR J=N TO 12:K=MS(I):L=MS(J):
IF R(K)<R(L) THEN MS(I)=L:MS(J)=K:\NEXT: NEXT:RETURN:
.сс

Закрыть окно         Список других документов ПЭВМ "Агат"